a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


eae Pee ee ee Gadd aE ong ers ae eee 


D 10 
*eF ]LE**1D**FORFMT 
FFFFFFFFFE 000000 RRRRRRRR FFFFFFFFRE MM MM OTTTTTTTTTT 
FFFFFFFFFF 000000 RRRRRRRR FFFFFFFFFF MM MM OTTTTTTTTTT 
FF 00 0O RR RR FF MMMM = MMMM TT 
FF 00 OO RR RR FF MMMM MMMM TT 
FF 00 0O RR RR FF “4 6M OMM TT 
FF 00 OO RR RR FF MM 6M OMM TT 
FFFFFFFE 00 O00 RRRRRRRR FFFFFFFF M TT 
FFFFFFFF 00 O00 RRRRRRRR FFFFFFFF MM MM TT 
FF 00 00 RR RR FF MM MM TT 
FF 00 OO RR RR FF MM MM TT 
FF 00 OO RR RR FF MM MM TT eeee 
FF 00 RR RR FF MM MM TT eoee 
FF 000000 RR RR FF MM MM TT ceee 
FF 000000 RR RR FF MM MM TT cece 
RRRRRRRR EEEEEEEEEE QQQ0QQ 
RRRRRRRR EEEEEEEEEE QQ0000 
RR RR EE QQ QQ 
RR RR EE QQ Qa 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RR RR EE QQ QQ QQ 
RR RR EE QQ QQ Qa 
RR RR EE QQ Q 
RR RR EE QQ QQ 
RR RR EEEEEEEEEE Qo0QQg QQ 
RR RR EEEEEEEEEE QQQg QQ 


———__——_ 
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1 
FORFMT.REQ:1 16*SEP=1984 16:50:55.89 Page 1 FOS 
File: FORFMT.REQ Edit: JAW1004 | r, 
i This file, FORFMT.REQ, defines symbols for the VAX-11 FORTRAN + ( 


. formatting routines. — 


ted 
i eeedeerereererereerrereeeeereneeeeteeeeeeeeeeeeeneneeteeeeterereeereereeeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
® 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER + 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
it OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTUARE TS” HEREBY = 
ie TRANSFERRED. . 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
ie CORPORATION. * 
t 
® 
& 
® 
w 
* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Veeee eee eA AHEH HAHAH AAAHATARAAAAEKAeRAAeKeAeeAReeeeeeeeeeeeeeeereeeees 


ACRO 

V_FMT_CODE = 0,0,7,0 % ! 7=bit format code 

VIFMT_REPRE = 6, 7, 1,0 k; ! Optional representation byte present? 
MACRO | 


Revision History: 


Change name to FORFMT.REQ JBS 14-NOV-78 

Add copyr jane notice and change version number JBS 16-NOV-78 
Add FO 77 format codes. SBL 09-Feb-1979 

Remove PRINT statement, for new BLISS compiler. JBS 02-OCT-1979 
Add V_RC_TYPE_BYTE and V_RC_TYPE_WORD. JAW 10-Aug-1981 


S 


+ 
jnerene format code byte 


+ 
Opt fonat format representation byte: 
e ie > are bits in the optional format representation 
git Pie e is copied into local BLOCK 
B_ FMT REPRE ENT. These flags indicate less 
_ frequently used sizes of the format code representations. 
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V._RC_TYPE = 0,0,2,0%, ! Repeat count type: 
! 0 = not present, 1 = byte, 2 = word 


V-REATVPE-BYTE = 0.0.1.0 
v.w_WORD= 0,2,1,0 %, | ! 6=w field is byte, 1=W field is word. 
' Bit 3 is reserved to DEC 
V_E_VFE = 0,4,1,0 % ' —€ field is VFE 
VID“VFE = 0.5.1.0, 4, iD field is vFE 
V-W-VFE = 0,6,1,0 % ' wW field is a VFE Signore V_W_WORD) 
VIRU_VFE = 6.7.1.0 &:; Repeat count field , 


! ignore V_RC_BYTE and V_RC_WORD) 


'¢ 
i Define format code symbols which are is 2 or 3 characters s 
i in between logical tabs. One character symbols are Papi, 
i _that they are two character symbols instead (so won't conflict 


plus comma will fit 


oi 
wi so 
th LOCALS). 


ger 
aT 


ct 


| 

LITERAL | 

Format syntax error - | from object time format compiler 

( = Format reversion point 
n( = Left paren of repeat group 
)- pignt pe paren of repeat group 

) = End of format 

/ = Record separator 

i $ = Dollar si gn: terminal 1/0 

not return to left margin 

olon: terminate if end of List 

no ivalaten Holerith printed 

| 

} 


N OMSwoO 


ss 8s: 8&8 &© & & 


NO OMEFWN—O 


oO 

c 

2 
" 


! § = Restore + optional 
Force + on 

Force + off 

signed scale factor (-128 =< s =< +127). 

Tab Set (0 < n =< 32767) 

nX = Skip nm columns (0 < n =< 3276 

nHcccc = Puolleriths n chars Ea (0 < n =< 32767) 
BN - Blanks are nulls 

BZ - Blanks are zeroes 

TLe = Tab left c columns 

TRe = Tab right ¢ columns 


“nu 
o- 


NON O fF FPO ZT NSTt xa UNUM 
Oro 


z 
— 
2 
o 
MPMNMNININIZM PMN TO 


ee ee 
eee te ee ee ee ee ee ee ee 


——War tt 


Vt WhO "NmNeo 


Q = no. of input chars left in record 
nAw - - er numeric | 
Minimum 1/0 List transmitting data code 
nlw - Locial 
Min. integer 
nOw - Octal 

niw - Integer 

nlw - Hexadecimal 

Ow.m - Extended 0 
lw.m - Extended | 
Zw.m - Extended 7 


o 


z 
Saad 
z 
— 


ee a) erent tt te "7 Ola COOOCCOCOOO 


<< 
OwWroown 
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-MAX_INT = XZ, ! Max. integer (not counting defaults) 
P = 30, ! IE ! nFw.d = Fixed format 
-MINLFLT = LF, ! Min. floating 
WE ssi, | if ! nEw.d = Scientific notation format 
_G = ¢° ' 20 ! nGw.d = General format 
D Sie | €) ! nDw.d = Double Precision format 
RE = 34, ! § ! nEw.dEe - Extended E 
XG ° 3, 7 ! nGw.dEe - Extended G 
-MAX_FLT = XG ! max. floating (not Squnt ing default) 
“MAXIDATA = XG, i Max. data (not counting default) 


'¢ 
Default format codes: 


_DA =41, ! 29 ' nA = default A 
_DL = tg: ! 2A ' mL = default L 
_DO = 43, ' 2B ' nO - default 0 
DI = 44, ' 2¢ ' nl = default | 
_b2 = 45, ! 20 ! nZ - default Z 
_DF si, i 3 ! nF = default F 
_DE = 51, ! 3 ' nE - default E 
_DG = 2g: 1 34 ' nG - default G 
DD = 55; ! 35 ! nD = default D 
' Note: 0 < nm =< 32767 (decimal) 
0 <w =< 65535 (decimal) 
0 =< d =< 255 (decimal) 
0 =< e =< 255 (decimal) 


End of file FORFMT.REQ 


AL EQUIPMENT CORPORATION | 


Q178 8481138 SE D : 
0] c DENTIAL .AND PROPRIETARY 


VAX/VMS V4.0. 


Hi 


